home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / CHANGDIR.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  349b  |  22 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' DECLARE FUNCTION SetSubDir% (DirName$)
  3. '' '$INCLUDE: 'qbtools.inc'
  4.  
  5. FUNCTION SetSubDir% (DirName$)
  6.   
  7.     w% = FileAttributeGet%(DirName$, Attrib%)
  8.     IF w% THEN
  9.         SetSubDir% = 1
  10.     ELSE
  11.         IF Attrib% = &H10 THEN
  12.             CHDIR DirName$
  13.             SetSubDir% = 0
  14.         ELSE
  15.             SetSubDir% = 1
  16.         END IF
  17.     END IF
  18.   
  19.  
  20. END FUNCTION
  21.  
  22.